home *** CD-ROM | disk | FTP | other *** search
- inherited frmInput: TfrmInput
- Left = 639
- Top = 186
- HelpContext = 47
- OldCreateOrder = True
- OnClose = FormClose
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- inherited pnlTop: TPanel
- inherited lblCommandName: TLabel
- Caption = ''
- end
- inherited memActionDesc: TMemo
- Lines.Strings = (
-
- 'Displays an input box allowing the user to enter a value. The v' +
- 'alue entered is '
-
- 'saved to the variable specified. Task execution is paused while' +
- ' the task waits for '
-
- 'a value to be entered. Useful for asking a question that requir' +
- 'es a text response '
- 'at runtime.')
- end
- end
- inherited pnlCenter: TPanel
- inherited pgcControlPage: TPageControl
- inherited tbsAM5Main: TTabSheet
- object Label1: TLabel
- Left = 10
- Top = 171
- Width = 433
- Height = 13
- AutoSize = False
- Caption = '&Title of the input box:'
- FocusControl = edtWindowTitle
- end
- object Label5: TLabel
- Left = 12
- Top = 124
- Width = 433
- Height = 13
- AutoSize = False
- Caption = 'Populate &variable with value entered:'
- FocusControl = cboCodeVariable
- end
- object Label2: TLabel
- Left = 10
- Top = 16
- Width = 425
- Height = 13
- AutoSize = False
- Caption = '&Message to display:'
- FocusControl = memMessageToDisplay
- end
- object Label6: TLabel
- Left = 11
- Top = 82
- Width = 433
- Height = 13
- AutoSize = False
- Caption = '&Default value:'
- FocusControl = edtDefaultValue
- end
- object edtWindowTitle: TEdit
- Left = 10
- Top = 187
- Width = 449
- Height = 21
- TabOrder = 2
- end
- object cboCodeVariable: TAM5VarListComboBox
- Left = 10
- Top = 140
- Width = 224
- Height = 21
- ItemHeight = 13
- TabOrder = 1
- OnDropDown = cboCodeVariableDropDown
- OnKeyUp = edtXposKeyUp
- end
- object memMessageToDisplay: TMemo
- Left = 10
- Top = 32
- Width = 449
- Height = 42
- ScrollBars = ssVertical
- TabOrder = 0
- WantTabs = True
- OnKeyPress = memMessageToDisplayKeyPress
- end
- object edtDefaultValue: TEdit
- Left = 11
- Top = 98
- Width = 449
- Height = 21
- TabOrder = 3
- end
- end
- object tbsAM5Advanced: TTabSheet [1]
- Caption = 'Advanced'
- ImageIndex = 3
- object Label4: TLabel
- Left = 10
- Top = 16
- Width = 185
- Height = 13
- AutoSize = False
- Caption = '&Position:'
- FocusControl = cboPosition
- end
- object lblCoordinates: TLabel
- Left = 10
- Top = 65
- Width = 172
- Height = 13
- Caption = '&Upper left corner coordinates (X,Y):'
- FocusControl = edtXpos
- end
- object lblMouseLocation: TLabel
- Left = 239
- Top = 65
- Width = 161
- Height = 14
- AutoSize = False
- Caption = 'Current mouse location:'
- end
- object lblPressInsert: TLabel
- Left = 239
- Top = 81
- Width = 213
- Height = 37
- AutoSize = False
- Caption = '(Press the insert key to capture)'
- WordWrap = True
- end
- object lblPosition: TLabel
- Left = 443
- Top = 65
- Width = 16
- Height = 13
- Alignment = taRightJustify
- Caption = '1,1'
- end
- object Label3: TLabel
- Left = 11
- Top = 112
- Width = 239
- Height = 13
- AutoSize = False
- Caption = '&Button selected by default:'
- FocusControl = cboButtonByDefault
- end
- object lblSeconds: TLabel
- Left = 123
- Top = 184
- Width = 124
- Height = 13
- AutoSize = False
- Caption = 'seconds'
- end
- object lblOnCancel: TLabel
- Left = 239
- Top = 112
- Width = 51
- Height = 13
- Caption = 'On cancel:'
- end
- object cboPosition: TComboBox
- Left = 10
- Top = 32
- Width = 204
- Height = 21
- Style = csDropDownList
- ItemHeight = 0
- TabOrder = 0
- OnChange = cboPositionChange
- OnKeyUp = edtXposKeyUp
- end
- object edtXpos: TEdit
- Left = 10
- Top = 81
- Width = 105
- Height = 21
- TabOrder = 3
- OnKeyUp = edtXposKeyUp
- end
- object edtYpos: TEdit
- Left = 125
- Top = 81
- Width = 104
- Height = 21
- TabOrder = 4
- OnKeyUp = edtXposKeyUp
- end
- object cboButtonByDefault: TComboBox
- Left = 11
- Top = 128
- Width = 204
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 5
- OnKeyUp = edtXposKeyUp
- Items.Strings = (
- 'OK'
- 'Cancel')
- end
- object cbCountDownButton: TCheckBox
- Left = 12
- Top = 156
- Width = 301
- Height = 17
- Caption = '&Automatically press the default button after:'
- TabOrder = 6
- OnClick = cbCountDownButtonClick
- OnKeyUp = edtXposKeyUp
- end
- object edtDelayScalar: TEdit
- Left = 30
- Top = 176
- Width = 87
- Height = 21
- TabOrder = 7
- OnKeyUp = edtXposKeyUp
- end
- object cbDisplayIcon: TCheckBox
- Left = 239
- Top = 12
- Width = 207
- Height = 17
- Caption = 'Display this &Icon in the message box:'
- TabOrder = 1
- OnClick = cbDisplayIconClick
- end
- object cboIconToDisplay: TComboBox
- Left = 239
- Top = 32
- Width = 204
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 2
- OnKeyUp = edtXposKeyUp
- Items.Strings = (
- 'Exclamation-point'
- 'Information'
- 'Question-mark'
- 'Stop-sign')
- end
- object cbxOnCancel: TComboBox
- Left = 239
- Top = 128
- Width = 220
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 8
- Items.Strings = (
- 'Continue'
- 'Stop'
- 'Fail')
- end
- end
- end
- end
- inherited taclKeyboardTrap: TActionList
- Left = 196
- end
- inherited dxSIBarManager: TdxBarManager
- Categories.ItemsVisibles = (
- 2)
- Categories.Visibles = (
- True)
- PopupMenuLinks = <
- item
- Control = lsvAM5Errors
- PopupMenu = dxCheckPopup
- end>
- Left = 164
- DockControlHeights = (
- 0
- 0
- 0
- 0)
- end
- inherited dxCheckPopup: TdxBarPopupMenu
- ItemLinks = <
- item
- Item = itmCheckAllErrors
- UserGlyph.Data = {00000000}
- Visible = True
- end
- item
- Item = itmCheckNoErrors
- UserGlyph.Data = {00000000}
- Visible = True
- end>
- Left = 132
- end
- inherited IvTranslator1: TIvTranslator
- Left = 228
- Top = 348
- end
- end
-